home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / c / gnulib / sun3.md / _builtin_del.s < prev    next >
Text File  |  1989-09-24  |  858b  |  73 lines
  1.     .data
  2.     .text
  3. LL0:
  4. |#PROC# 0
  5.  
  6.     LF12    =    0
  7.     LS12    =    0
  8.     LFF12    =    0
  9.     LSS12    =    0
  10.     LP12    =    12
  11.     .data
  12.     .text
  13.     .globl    ___builtin_delete
  14. ___builtin_delete:
  15. |#PROLOGUE# 0
  16.  
  17.     link    a6,#0
  18. |#PROLOGUE# 1
  19.  
  20.     tstl    a6@(8)
  21.     jeq    LE12
  22.     movl    a6@(8),sp@-
  23.     jbsr    _free
  24.     addqw    #4,sp
  25. LE12:
  26.     unlk    a6
  27.     rts
  28. |#PROC# 0
  29.  
  30.     LF17    =    12
  31.     LS17    =    0
  32.     LFF17    =    12
  33.     LSS17    =    0
  34.     LP17    =    16
  35.     .data
  36.     .text
  37.     .globl    ___builtin_vec_delete
  38. ___builtin_vec_delete:
  39. |#PROLOGUE# 0
  40.  
  41.     link    a6,#-12
  42. |#PROLOGUE# 1
  43.  
  44.     movl    a6@(12),d0
  45.     addql    #1,d0
  46.     movl    d0,a6@(-8)
  47.     movl    a6@(8),a6@(-12)
  48.     mulsl    a6@(16),d0
  49.     addl    d0,a6@(8)
  50.     clrl    a6@(-4)
  51.     jra    LY00000
  52. LY00001:
  53.     movl    a6@(16),d0
  54.     subl    d0,a6@(8)
  55.     movl    a6@(28),sp@-
  56.     movl    a6@(8),sp@-
  57.     movl    a6@(20),a0
  58.     jsr    a0@
  59.     addqw    #8,sp
  60.     addql    #1,a6@(-4)
  61. LY00000:
  62.     movl    a6@(-4),d0
  63.     cmpl    a6@(-8),d0
  64.     jlt    LY00001
  65.     tstl    a6@(24)
  66.     jeq    LE17
  67.     movl    a6@(-12),sp@-
  68.     jbsr    _free
  69.     addqw    #4,sp
  70. LE17:
  71.     unlk    a6
  72.     rts
  73.